home *** CD-ROM | disk | FTP | other *** search
/ IBM InfoROM for OS/2 Beta 1995 January / IBM InfoROM for OS2 Beta 1-1995.ISO / testcert / mmedia / system / ap2 / scripts / wr9____9.p2s < prev    next >
Encoding:
Text File  |  1994-05-04  |  3.8 KB  |  148 lines
  1. ##########################################################################
  2. # OBJECTIVE: LINE IN RECORD
  3. #
  4. # Description:  Open the wave player,line in and monitor on
  5. #              1)load NEW,record.
  6. #              2)pause,resume,pause,resume,stop.
  7. #              3)seek to start,play,save.
  8. #               Close
  9. #
  10. #  NOTE: Ensure an audio source is connected to the line in jack
  11. #        of the audio card, otherwise it will be a blank record.
  12. #######################################################################
  13.  
  14. ############################################
  15. #
  16. #   OPEN THE DIGITAL AUDIO PLAYER
  17. #
  18. ############################################
  19.  
  20. open waveaudio00 alias wave1 notify
  21. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_OPEN #1
  22. @WAIT_NOTIFY 1 45000
  23. ###############################################
  24. #
  25. #  ENABLE TYPE LINE IN, SET MONITOR INPUT ON
  26. #
  27. ###############################################
  28.  
  29. CONNECTION wave1 QUERY TYPE WAVE STREAM ALIAS MPAmpMixer WAIT
  30. CONNECTOR WAVE1 ENABLE TYPE LINE IN NOTIFY
  31. SET MPAmpMixer MONITOR ON WAIT
  32.  
  33. ############################################
  34. #
  35. #   LOAD A NEW FILE TO BE RECORDED
  36. #
  37. ############################################
  38.  
  39. load wave1 new notify
  40. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_LOAD #2
  41. @WAIT_NOTIFY 2 30000
  42.  
  43. ############################################
  44. #
  45. #   SET THE DIGITAL AUDIO PLAYER
  46. #   TIME FORMAT - MILLISECONDS
  47. #   BITS PER SAMPLE - 8 BITS
  48. #   SAMPLES PER SEC - 44 KHz
  49. #   CHANNELS - STEREO
  50. #   FORMAT TAG - PCM
  51. #
  52. ############################################
  53.  
  54. set wave1 time format milliseconds wait
  55. status wave1 time format wait
  56. =milliseconds
  57. set wave1 bitspersample 8 wait
  58. status wave1 bitspersample wait
  59. =8
  60. set wave1 samplespersec 44100 wait
  61. status wave1 samplespersec wait
  62. =44100
  63. set wave1 channels 2 wait
  64. status wave1 channels wait
  65. =2
  66. set wave1 format tag PCM wait
  67. status wave1 format tag wait
  68. =PCM
  69.  
  70. ############################################
  71. #
  72. #   RECORD THE NEW WAVE FILE
  73. #
  74. ############################################
  75. @REM ***************************************************************
  76. @REM Ensure an audio source is connected to the line in jack of the
  77. @REM audio card, otherwise it will be a blank record.
  78. @REM ***************************************************************
  79.  
  80. record wave1 notify
  81. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_RECORD #3
  82. @WAIT_NOTIFY 3 20000
  83.  
  84. ##############################################
  85. #
  86. #   PAUSE, RESUME (RECORD), PAUSE, RESUME (RECORD)
  87. #
  88. ##############################################
  89.  
  90. pause wave1 notify
  91. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_PAUSE #4
  92. @WAIT_NOTIFY 4 30000
  93. status wave1 mode wait
  94. =paused
  95. @PAUSE 2000
  96. resume wave1 notify
  97. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_RESUME #5
  98. @WAIT_NOTIFY 5 30000
  99. status wave1 mode wait
  100. =recording
  101. @PAUSE 2000
  102.  
  103. pause wave1 notify
  104. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_PAUSE #6
  105. @WAIT_NOTIFY 6 30000
  106. status wave1 mode wait
  107. =paused
  108. @PAUSE 2000
  109. resume wave1 notify
  110. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_RESUME #7
  111. @WAIT_NOTIFY 7 30000
  112. status wave1 mode wait
  113. =recording
  114. @PAUSE 2000
  115.  
  116. stop wave1 notify
  117. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_STOP #8
  118. @WAIT_NOTIFY 8 30000
  119.  
  120. ############################################
  121. #
  122. #   SEEK TO START
  123. #   PLAY THE NEW RECORDED FILE
  124. #   SAVE THE NEW RECORDED FILE
  125. #
  126. ############################################
  127.  
  128. seek wave1 to 0 wait
  129. status wave1 position wait
  130. =0
  131. play wave1 notify
  132. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_PLAY #9
  133. @WAIT_NOTIFY 9 45000
  134. save wave1 delete.wav notify
  135. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SAVE #10
  136. @WAIT_NOTIFY 10 45000
  137.  
  138. ####################################
  139. #
  140. #   CLOSE THE DIGITAL AUDIO PLAYER 
  141. #
  142. ####################################
  143.  
  144. close wave1 notify
  145. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_CLOSE #11
  146. @WAIT_NOTIFY 11 40000
  147.  
  148.